home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 54
/
054.d81
/
star nibbler
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
38 lines
10 a=a+1:ifa=1 thenload"nibbler.o",8,1
12 :
20 poke808,225:poke657,128
30 poke49655,16:poke49329,8:poke53280,.:poke53281,.
40 print"[147][158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
41 forx=1to22
42 print" [221] [221]"
43 next
44 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
48 print" [159][204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]"
49 print" [160][152][164][164][164][164][164][164][164][164][164][164][164][164]"
50 print" [211][212][193][210][160][206][201][194][194][204][197][210]"
51 print" [160][152][163][163][163][163][163][163][163][163][163][163][163][163]"
52 print" [154]by [203]evin [210]eifenberg"
53 print"[150] [208][210][197][211][211][160][210][197][212][213][210][206][150][160][212][207][160][211][212][193][210][212] [195][207][208][217][201][206][199]"
54 print" [207][210] [208][210][197][211][211][160][209][150][160][212][207][160][210][197][212][213][210][206]":print" [212][207] [204][207][193][196][211][212][193][210]"
55 geta$:ifa$<>"[209]"anda$<>"q"anda$<>chr$(13)then55
56 ifa$="q"ora$="[209]"then 2000
57 print"[147]"chr$(142)" star nibbler
58 [153]" closeprint#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
59 print"[152]note :[154] write protect your source disk"
60 restore:b=820:forz=0to35:readv:pokeb+z,v:next:sys49152
70 k=56576:t=peek(k)
80 ifpeek(k)=t then80
160 close 8:close15:poke53265,27
165 open15,8,15,"uj":fork=1to3000:next:close15
170 print"[147][154] [195][207][208][217][160][195][207][205][208][204][197][212][197] - [208][210][197][211][211] [211][208][193][195][197][160][194][193][210][144]"
180 get z$:ifz$<>" "then180
200 goto 12
210 data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23
220 data 24,25,26,27,28,29,30,31,32,33,34,35,0
2000 poke808,237:open15,8,15,"uj":fork=0to3000:next
2001 print#15,"r0:hello connect=hello connect":input#15,er:close15:
2002 ifer<>63 then print"[147]":end
2003 print"[144][147]p[207]55,.:p[207]56,160:load"chr$(34)"hello connect"chr$(34)",8,1"
2004 poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
2005 new